home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 43 / 043.d81 / cross search (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  201 lines
  1. 1 gosub60100:print"[147]"chr$(142)
  2. 5 poke53280,0:poke53281,0
  3. 10 s=54272:forq=0 to 24:pokes+q,0:nextq:pokes+24,15
  4. 20 pokes,225:pokes+1,5:pokes+6,240
  5. 30 pokes+7,165:pokes+8,117:pokes+13,240
  6. 45 print"[147]             [146] cross-search                press: f1-next";
  7. 50 print" pu";
  8. 51 print"zzle...f7-mark word    [146][155]benituorbuscaelbammargorprolocredrob";
  9. 52 print"    [146][155]alpagsperipheraltacrotarenegepolevne    [146][155]cbianteaandar";
  10. 53 print"osrucsnoitarepoforedrog    [146][155]kaxkoerdnciremunahplaffunctionke";
  11. 54 print"ysio    [146][155]gneilsaodyracnoitidnoceenilmargorpst    [146][155]rellort";
  12. 55 print"nocecafretnioediviyromemfotuo    [146][155]otbooeilmnctfyhomerandomac";
  13. 56 print"cessmemory    [146][155]uaabttnyneterrnullstringtwedocneercs    [146][155]n";
  14. 57 print"nsygcgmuumreahstandardcharactermode    [146][155]diitnasemqomtnpcvnoi";
  15. 58 print"tacolyromemancnx    [146][155]cddeirymbedenioengtneserptonecivedae ";
  16. 59 print"   [146][155]orfmrasoeremibkgbusogtuohtiwnrutermc    [146][155]loiithtrrflosr";
  17. 60 print"etcarahccihpargmnorpmu    [146][155]oostsceydaercisabgtchctamsimepytc";
  18. 61 print"uot    [146][155]rcolormemorywecivedecafretnidnuosyce              ";
  19. 62 print"                                        enter 'q' to quit      ";
  20. 63 print"     [155]";
  21. 65 x$=""
  22. 69 l$=" letters =[146][155]":w$=" word (s) =[146][155]":cu$=" clue =[146] [155]"
  23. 70 wd$=x$+"":wd$=wd$+" answer =[146] [155]":n$=" number =[146][155]"
  24. 80 an$="[159]answer: "
  25. 100 dim d(24),t(53),aa(26),bb(29):d(0)=0:t(0)=0
  26. 110 forq=0 to 26:read aa(q):nextq
  27. 120 forq=0 to 29:read bb(q):nextq
  28. 200 read a,b,c$:z=z+1:ifa=0thenz=0:restore:goto110
  29. 210 forq=1 to a:read d(q):nextq
  30. 220 gosub10000:printx$;l$;a;w$;b;n$;z:printcu$;c$:printwd$;
  31. 230 forq=1994 to 1993+a:pokeq,160:nextq
  32. 240 ift(z)=0then 300
  33. 250 forq=1994 to 1993+a:pokeq,d(q-1993):nextq
  34. 260 gets$:ifs$=""then260
  35. 265 ifs$="[136]"then400
  36. 267 ifs$="[133]"then200
  37. 270 goto 260
  38. 300 print"[154]";:forq=1 to a+1
  39. 310 gety$:ify$=""then 310
  40. 311 ify$="[133]"thenq=a-1:y$="":goto200
  41. 312 ify$="[136]"thenq=a-1:y$="":goto400
  42. 315 if (y$=chr$(20)) and (q>1) then q=q-1:print"[157] [157]";:goto310
  43. 316 if (y$=chr$(13)) then e=0:goto360
  44. 317 if (q=a+1) then 310
  45. 340 y=asc(y$):ify<65 or y>90 then 310
  46. 350 printy$;:nextq
  47. 360 if(peek(1994)=145)and(peek(1995)=160)thengosub60000:poke198,.:mm=1
  48. 365 forq=1994 to 1993+a:m=peek(q)-128:ifm <>d(q-1993)thene=1
  49. 370 nextq
  50. 375 ife=0then380
  51. 378 forq=1994to1993+a:pokeq,160:nextq:printwd$;:ifmm=.thengosub10050
  52. 379 mm=.:goto300
  53. 380 gosub10060:t(z)=1:goto260
  54. 400 l=1106
  55. 410 x=peek(l)
  56. 415 i=peek(l)
  57. 420 ifi>128thenpokel,(i-128):goto440
  58. 430 pokel,(i+128)
  59. 440 getp$
  60. 450 ifp$="[133]"then:pokel,x:goto200
  61. 460 ifp$="[136]"then:pokel,x:goto600
  62. 470 ifp$="[145]"then:if peek(l-40)<>160then:pokel,x:l=l-40:goto410
  63. 480 ifp$=""then:if peek(l+40)<>160then:pokel,x:l=l+40:goto410
  64. 490 ifp$="[157]"then:if peek(l-1)<>160 then:pokel,x:l=l-1:goto410
  65. 500 ifp$=""then:if peek(l+1)<>160 then:pokel,x:l=l+1:goto410
  66. 510 ifp$=" "then:gosub530
  67. 520 goto415
  68. 530 ifx>128then:x=x-128:return
  69. 540 x=x+128:return
  70. 600 v=0:forq=1106 to 1702:if peek(q)<128thenv=v+1
  71. 610 nextq:ifv<>26then400
  72. 650 v=0:w=0
  73. 660 forq=1106 to 1702:if peek(q)<128thenv=v+1:if peek(q)<>aa(v)thenw=1
  74. 670 nextq:ifw=1then400
  75. 700 print"[159][147]   ok:[158]  you have made it this far, but"
  76. 710 print"        there is one more challenge.":
  77. 720 print"   the letters left by the puzzle are!!!"
  78. 730 forq=55543 to 55569:pokeq,5:nextq
  79. 740 forq=1 to 26:poke(1271+q),aa(q):nextq
  80. 750 print"    using these letters, answer this!!!"
  81. 760 print"    'how do you feel about computing?'"
  82. 770 print"[159] hint:[158]  the answer is four words in"
  83. 780 print"        length and the letters are as"
  84. 790 print"        follows."
  85. 800 print"        pguticomn si wyaals tnacatfis"
  86. 801 print"                 ^  ^      ^"
  87. 802 print"            include these spaces."
  88. 805 an$="[159]answer: "
  89. 810 gosub10010:printan$;
  90. 815 forq=1 to 29:
  91. 820 gety$:ify$=""then820
  92. 830 y=asc(y$):if (y>90) or (y<65) and (y<>32) then 820
  93. 840 printy$;:nextq:w=0
  94. 850 forq=1 to 29:m=peek(1751+q):ifm<>bb(q)thenw=1
  95. 860 nextq:ifw=1then:gosub10050:goto810
  96. 865 forq=0 to 5:gosub10060:nextq
  97. 899 end
  98. 900 data 0,1,1,19,20,3,1,14,9,19,9,20,1,3,6,7,9,12,13,14,15,16,19,20,21,23
  99. 910 data 25,0,3,15,13,16,21,20,9,14,7,32,9,19,32,1,12,23,1,25,19
  100. 920 data 32,6,1,14,20,1,19,20,9,3
  101. 1000 data 24,3,"(vic)",22,9,4,5,15,9,14,20,5,18,6,1,3,5,3,15,14,20,18,15
  102. 1001 data 12,12,5,18
  103. 1002 data 21,3,"original mode on power up and   programming",19,20,1,14,4
  104. 1003 data 1,18,4,3,8,1,18,1,3,20,5,18,13,15,4,5
  105. 1004 data 20,3,"(sid)",19,15,21,14,4,9,14,20,5,18,6,1,3,5,4,5,22,9,3,5
  106. 1005 data 18,3,"(ram)",18,1,14,4,15,13,1,3,3,5,19,19,13,5,13,15,18,25
  107. 1006 data 18,3,"(e.m.) return before or lacking gosub",18,5,20,21,18,14,23
  108. 1007 data 9,20,8,15,21,20,7,15,19,21,2
  109. 1008 data 17,3,"mathematical sequence",15,18,4,5,18,15,6,15,16,5,18,1,20,9
  110. 1009 data 15,14,19
  111. 1010 data 17,2,"they're non-alphanumeric",7,18,1,16,8,9,3,3,8,1,18,1,3,20
  112. 1011 data 5,18,19
  113. 1012 data 17,2,"produces waveforms",5,14,22,5,12,15,16,5,7,5,14,5,18,1,20
  114. 1013 data 15,18,16,3,"(e.m.) no peripheral device",4,5,22,9,3,5,14,15,20
  115. 1014 data 16,18,5,19,5,14,20
  116. 1015 data 15,2,"poke 53281,x",2,1,3,11,7,18,15,21,14,4,3,15,12,15,18
  117. 1016 data 15,2,"location of character patterns",3,8,1,18,1,3,20,5,18,13,5
  118. 1017 data 13,15,18,25
  119. 1018 data 15,2,"computer language",13,1,3,8,9,14,5,12,1,14,7,21,1,7,5
  120. 1019 data 15,2,"the brains of the computer",15,16,5,18,1,20,9,14,7,19,25
  121. 1020 data 19,20,5,13
  122. 1021 data 14,3,"(rom)",18,5,1,4,15,14,12,25,13,5,13,15,18,25
  123. 1022 data 14,2,"storage address",13,5,13,15,18,25,12,15,3,1,20,9,15,14
  124. 1023 data 13,3,"(e.m.) 256 characters",19,20,18,9,14,7,20,15,15,12,15,14,7
  125. 1024 data 12,2,"(e.m.)string instead of a number",20,25,16,5,13,9,19,13,1
  126. 1025 data 20,3,8
  127. 1026 data 12,1,"non-graphic characters",1,12,16,8,1,14,21,13,5,18,9,3
  128. 1027 data 12,1,"instructions capable of being   processed by the computer"
  129. 1028 data 16,18,15,7,18,1,13,13,1,2,12,5
  130. 1029 data 12,2,"1024 to 2023",19,3,18,5,5,14,13,5,13,15,18,25
  131. 1030 data 12,2,"(rnd) 0.000000001 to 0.999999999",18,1,14,4,15,13,14,21,13
  132. 1031 data 2,5,18
  133. 1032 data 12,2,"eight to the right of keyboard",6,21,14,3,20,9,15,14,11,5
  134. 1033 data 25,19
  135. 1034 data 12,2,"upper and lower-case letters and graphic characters",3,8,1
  136. 1035 data 18,1,3,20,5,18,19,5,20
  137. 1036 data 11,2,"55296 to 56295",3,15,12,15,18,13,5,13,15,18,25
  138. 1037 data 11,2,"poke 53280,x",2,15,18,4,5,18,3,15,12,15,18
  139. 1038 data 11,2,"80 consecutive characters",16,18,15,7,18,1,13,12,9,14,5
  140. 1039 data 11,3,"(e.m.) no more (ram)",15,21,20,15,6,13,5,13,15,18,25
  141. 1040 data 10,2,"numbers representing characters",19,3,18,5,5,14,3,15,4,5
  142. 1041 data 10,2,"commands executed immediately",4,9,18,5,3,20,13,15,4,5
  143. 1042 data 10,1,"point found by its x and y value",3,15,15,18,4,9,14,1,20,5
  144. 1043 data 10,1,"printer, disk drive, tape player, and other devices",16,5
  145. 1044 data 18,9,16,8,5,18,1,12
  146. 1045 data 10,2,"nothing between two quotes",14,21,12,12,19,20,18,9,14,7
  147. 1046 data 10,1,"small program in larger program",19,21,2,18,15,21,20,9,14
  148. 1047 data 5,9,1,"connection between computer and peripheral",9,14,20,5,18
  149. 1048 data 6,1,3,5,9,1,"sound waves per second",6,18,5,17,21,5,14,3,25
  150. 1049 data 9,1,"either true or false",3,15,14,4,9,20,9,15,14
  151. 1050 data 8,1,"triangle, sawtooth, pulse, noise",23,1,22,5,6,15,18,13
  152. 1051 data 8,1,"(k) 1024",11,9,12,15,2,25,20,5
  153. 1052 data 7,1,"perform a command",5,24,5,3,21,20,5
  154. 1053 data 7,1,"basic instruction",3,15,13,13,1,14,4
  155. 1054 data 7,1,"bit=(0 or off)",4,9,19,1,2,12,5
  156. 1055 data 6,1,"compress a program",3,18,21,14,3,8
  157. 1056 data 6,1,"flashes on and off",3,21,18,19,15,18
  158. 1057 data 6,1,"bit=(1 or on)",5,14,1,2,12,5
  159. 1058 data 6,1,"base-2 system",2,9,14,1,18,25
  160. 1059 data 5,1,"beginner's all-purpose symbolic instruction code",2,1,19,9
  161. 1060 data 3,5,1,"one dot resolution",16,9,24,5,12
  162. 1061 data 4,1,"(s shift a) or s[193]",19,1,22,5
  163. 1062 data 4,1,"(ti)",20,9,13,5
  164. 1063 data 4,1,"(g shift o) or g[207]",7,15,20,15
  165. 1064 data 4,1,"(r shift e) or r[197]",18,5,1,4
  166. 1065 data 4,1,"upper right hand corner",8,15,13,5
  167. 106